home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1638copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.3 KB  |  41 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1638"
  4. Company = "Interplay"
  5. title = "VR Soccer '96"
  6. Price = 57.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PlayStation"
  13. Title Description = "Goooooal! Featuring motion capture of the greatest players in international soccer, and Virtual FieldVision. Has it all...windmills, headers, dives, commentary by Barry Davies, the voice of the BBC. 44 real international teams - including Brazil - '94 World Cup winner! Build a soccer dream team with skill factor editing."
  14.  
  15.  
  16.  
  17. -------------------------------------
  18. dline = ""
  19. counter = 0
  20. repeat while dline <> title number
  21. counter = counter + 1
  22. dline = GetWord(1,   GetLine(titl,counter) )   
  23. test(dline = title number, LineInTitle = counter)
  24. end repeat 
  25.  
  26. starttitle = LineInTitle 
  27. num of titles shown = 6
  28. endtitle = starttitle + num of titles shown - 1
  29. titles = ""
  30. title highlight = ""
  31. repeat with counter = starttitle to endtitle
  32. nextline = GetLine(titl,counter)
  33. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  34. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  35. end repeat
  36. dpage = CurrentPageID
  37.  
  38. newtitle = FALSE
  39. end if
  40.  
  41.